Monster Media 1996 #15/Monster Media Number 15 (Monster Media)(July 1996).ISO/wildcat/uslister.zip/USLISTER.WCX

Wildcat! WCX | 1996-05-31 | 3KB | 170 lines

'! Decompiled with wccNosy version 4.20f (freeware)
'! Input File: in.wcx  2959 bytes  03/09/122  08:19:16am
'! Code Segment Size  :2089 bytes
'! Data Segment Size  :5666 bytes
'! String Segment Size:870 bytes
'! Compiled with WCC version 4.12

      Dim l4463 As Long
      Dim l4467 As Long
      Dim i4471 As Integer
      Dim s4473 As String*30
      Dim l4503 As Long
      Dim s4507 As String*7
      Dim l4514 As Long
      Dim s4518 As String*25
      Dim l4543 As Long
      Dim l4547 As Long
      Dim i4551 As Integer
      Dim ur4553 As UserRecord
      Dim s5444 As String
      Dim i5448 As Integer
      Dim s5450(0 To 20) As String*10
      Dim i5660 As Integer
      Dim i5662 As Integer
      Dim i5664 As Integer

      Dim l65500_ As Long
      Dim i65504_ As Integer
      Dim l65506_ As Long
      Dim i65510_ As Integer
      Dim l65512_ As Long
      Dim i65516_ As Integer
      Dim l65518_ As Long
      Dim i65522_ As Integer
      Dim l65524_ As Long
      Dim i65528_ As Integer
      Dim l65530_ As Long
      Dim i65534_ As Integer

      l4467 = 9525
      If Exists(ProgPath + "uslister.key") Then
        Open ProgPath + "uslister.key" For Input As 1
      Else
   98   l4463 = 0
        GoTo 123
      End If
  110 Input #1, l4463
      Close 1
  123 s4473 = UCase(MakeWild.BBSName)
      s4473 = Trim(s4473)
      l4503 = 0
  191 For i4471 = 1 To Len(s4473) Step 1
        l4503 = l4503 + Asc(Mid(s4473, i4471, 1))
      Next
  295 s4507 = UCase(MakeWild.RegString)
      s4507 = Trim(s4507)
      l4514 = 0
  364 For i4471 = 1 To Len(s4507) Step 1
        l4514 = l4514 + Asc(Mid(s4507, i4471, 1))
      Next
  468 s4518 = UCase(MakeWild.SysopName)
      s4518 = Trim(s4518)
      l4543 = 0
  536 For i4471 = 1 To Len(s4518) Step 1
        l4543 = l4543 + Asc(Mid(s4518, i4471, 1))
      Next
  640 l4547 = l4503 + l4514 + l4543
      l4547 = l4547 * 7
      l4547 = l4547 * l4467
      l4547 = l4547 + l4467
      If l4547 = l4463 Then
        i4551 = - 1
      Else
  745   i4551 = 0
      End If
  751 i5448 = 0
      If Exists(ProgPath + "uslister.cfg") Then
        Open ProgPath + "uslister.cfg" For Input As 1
  801   Do While Not EOF(1)
          i5448 = i5448 + 1
          Input #1, s5450(i5448)
        Loop
      End If
      Do
  867   Cls
        Locate 1, 1
        Print "@0E@Which Security Profile would you like to view?"
        Print
  912   For i5660 = 1 To i5448 Step 1
          Print "@02@[@0F@"; i5660; "@02@] @0B@"; s5450(i5660)
        Next
 1040   Print
        Print "Select from 1 to "; i5448; " (0 to quit):";
        i5662 = InputNumber(" ", 0, i5448)
        If i5662 = 0 Then
          GoTo 1544
        End If
 1104   Cls
        Locate 1, 28
        Print "@0F@USLister - Copyright 1996"
        Locate 2, 28
        Print "@02@Searching for: @0A@"; UCase(s5450(i5662))
        Print "@0E@ID#@01@──@0E@User Name@01@──────────────────@0E@Alias Name@01@─────────────────@0E@Calls@01@──@0E@Phone Number"
        s5444 = ""
        i5660 = 0
        GetUser(ur4553, s5444)
        Do
 1209     If UCase(s5450(i5662)) = UCase(ur4553.SecLevel) Then
            Print "@0F@"; ur4553.UserId; Tab(6); "@0B@"; ur4553.Name; Tab(33); "@0C@"; ur4553.Alias; Tab(60); "@0D@"; ur4553.TimesOn; Tab(67); "@0A@"; ur4553.PhoneNumber
            i5660 = i5660 + 1
          End If
 1406   Loop Until Not GetNextUser(ur4553, 1213417543)
        Print "@01@└────────────────────────────────────────────────────────────────────────────┘@0F@"
        Print Tab(9); "@03@Written by: @0B@Dean Brooks at Hidden Paradise BBS (716)-345-9800"
        Print Tab(17); "@02@Found @0A@"; i5660; "@02@ users at Security Level: @0A@"; UCase(s5450(i5662))
        Print
        If (InputYesNo("See another listing (Y/N): ", 1213417543)) = 0 Then GoTo 1544
      Loop
 1544 Cls
      Locate 6, 25
      Print "@0F@Thank you for using USLister!"
      Locate 8, 28
      Print "@0A@Written by: Dean Brooks"
      Locate 10, 28
      Print "@09@Hidden Paradise Software"
      Locate 12, 18
      Print "@0E@Support: Hidden Paradise BBS @ 716-345-9800"
      If i4551 = 0 Then
        Print "@NOPAUSE@"
        Locate 18, 17
        Print "@0F@This delay will be removed when you register!"
        Color 3, 0
        Locate 15, 29
        Print "["
        Color 3, 0
        Locate 15, 51
        Print "]"
        Color 11, 0
        Locate 15, 40
        Print Chr(254)
 1737   For i5664 = 1 To 10 Step 1
          Color 11, 0
          Locate 15, 40 - i5664
          Print Chr(254)
          Locate 15, 40 + i5664
          Print Chr(254)
          Delay 0.5
        Next
 1870
 1893   For i5664 = 10 To 1 Step - 1
          Color 11, 0
          Locate 15, 40 - i5664
          Print " "
          Locate 15, 40 + i5664
          Print " "
          Delay 0.25
        Next
 2026   Locate 15, 40
        Print " "
        Reset
        End
      Else
 2052   Locate 15, 26
        Print "@1E@ Thank You for REGISTERING! @0F@"
        Delay 2
        Reset
      End If
 2079 End
      End